module P =
struct
  let n = 20
  let m = 4
  let population = 50
  let init = fun () ->
    Array.init population
      (fun _ -> Array.init n
	 (fun _ -> Random.int m))
  let eval = fun x -> Utils.max_array x
  let w = 0.5
  let c1 = 1.
  let c2 = 1.
end

module Pso = Swarm.Make(P)

let _ =  Pso.solve ()
